home *** CD-ROM | disk | FTP | other *** search
/ Digital Hollywood CD-ROM Demo / Digital Hollywood CD-ROM Demo.iso / CD-ROM Preview / Sam Rupert DEMO / Shared Cast / Shared Cast.rsrc / STXT_1411 < prev    next >
Unknown  |  1994-07-01  |  590 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% dexmagic Director STXT default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 0c 00 00 02 04 | 00 00 00 3e 2d 2d 20 73 |........|...>-- s|
|00000010| 68 6f 77 54 69 6d 65 20 | 0d 6d 61 63 72 6f 20 73 |howTime |.macro s|
|00000020| 68 6f 77 54 69 6d 65 0d | 67 6c 6f 62 61 6c 20 54 |howTime.|global T|
|00000030| 69 6d 65 52 65 6d 61 69 | 6e 69 6e 67 0d 0d 73 65 |imeRemai|ning..se|
|00000040| 74 20 54 68 65 4d 69 6e | 75 74 65 73 20 3d 20 54 |t TheMin|utes = T|
|00000050| 69 6d 65 52 65 6d 61 69 | 6e 69 6e 67 0d 73 65 74 |imeRemai|ning.set|
|00000060| 20 54 68 65 48 6f 75 72 | 73 20 3d 20 30 0d 72 65 | TheHour|s = 0.re|
|00000070| 70 65 61 74 20 77 68 69 | 6c 65 20 54 68 65 4d 69 |peat whi|le TheMi|
|00000080| 6e 75 74 65 73 20 3e 3d | 20 36 30 0d 20 20 73 65 |nutes >=| 60.  se|
|00000090| 74 20 54 68 65 48 6f 75 | 72 73 20 3d 20 54 68 65 |t TheHou|rs = The|
|000000a0| 48 6f 75 72 73 20 2b 20 | 31 0d 20 20 73 65 74 20 |Hours + |1.  set |
|000000b0| 54 68 65 4d 69 6e 75 74 | 65 73 20 3d 20 54 68 65 |TheMinut|es = The|
|000000c0| 4d 69 6e 75 74 65 73 20 | 2d 20 36 30 0d 65 6e 64 |Minutes |- 60.end|
|000000d0| 20 72 65 70 65 61 74 0d | 0d 69 66 20 54 68 65 4d | repeat.|.if TheM|
|000000e0| 69 6e 75 74 65 73 20 3e | 3d 20 31 30 20 20 74 68 |inutes >|= 10  th|
|000000f0| 65 6e 0d 20 20 73 65 74 | 20 54 68 65 4d 69 6e 53 |en.  set| TheMinS|
|00000100| 74 72 20 3d 20 63 68 61 | 72 73 28 73 74 72 69 6e |tr = cha|rs(strin|
|00000110| 67 28 54 68 65 4d 69 6e | 75 74 65 73 29 2c 20 31 |g(TheMin|utes), 1|
|00000120| 2c 20 32 29 0d 65 6c 73 | 65 0d 20 20 69 66 20 54 |, 2).els|e.  if T|
|00000130| 68 65 4d 69 6e 75 74 65 | 73 20 3e 20 30 20 74 68 |heMinute|s > 0 th|
|00000140| 65 6e 20 0d 20 20 20 20 | 20 73 65 74 20 54 68 65 |en .    | set The|
|00000150| 4d 69 6e 53 74 72 20 3d | 20 22 30 22 20 26 20 63 |MinStr =| "0" & c|
|00000160| 68 61 72 73 28 73 74 72 | 69 6e 67 28 54 68 65 4d |hars(str|ing(TheM|
|00000170| 69 6e 75 74 65 73 29 2c | 20 31 2c 20 31 29 0d 20 |inutes),| 1, 1). |
|00000180| 20 65 6c 73 65 0d 20 20 | 20 20 73 65 74 20 54 68 | else.  |  set Th|
|00000190| 65 4d 69 6e 53 74 72 20 | 3d 20 22 30 30 22 0d 20 |eMinStr |= "00". |
|000001a0| 20 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 73 | end if.|end if.s|
|000001b0| 65 74 20 54 68 65 54 69 | 6d 65 20 3d 20 73 74 72 |et TheTi|me = str|
|000001c0| 69 6e 67 28 54 68 65 48 | 6f 75 72 73 29 20 26 20 |ing(TheH|ours) & |
|000001d0| 22 3a 22 20 26 20 54 68 | 65 4d 69 6e 53 74 72 0d |":" & Th|eMinStr.|
|000001e0| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|000001f0| 63 61 73 74 20 22 54 69 | 6d 65 52 65 6d 61 69 6e |cast "Ti|meRemain|
|00000200| 69 6e 67 22 20 74 6f 20 | 54 68 65 54 69 6d 65 0d |ing" to |TheTime.|
|00000210| 00 03 00 00 00 00 00 10 | 00 0c 00 03 00 00 00 0c |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 13 00 10 00 0c 00 03 |........|........|
|00000230| 01 00 00 0c 00 00 00 00 | 00 00 00 00 00 1b 00 10 |........|........|
|00000240| 00 0c 00 03 00 00 00 0c | 00 00 00 00 00 00       |........|......  |
+--------+-------------------------+-------------------------+--------+--------+